home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs03.d81 / arcaid.arc / MODULE3 (.txt) < prev   
Commodore BASIC  |  2009-10-10  |  2KB  |  76 lines
  1. 0 REM
  2. 1 IF GL=66 THEN 312
  3. 10 IF GL=5110 THEN 360
  4. 20 IF GL=5370 THEN 620
  5. 30 IF GL=5390 THEN 640
  6. 40 GOTO 260
  7. 50 DR$=""
  8. 60 IF DV=8 AND DR=0 THEN DR$="A:"
  9. 70 IF DV=8 AND DR=1 THEN DR$="B:"
  10. 80 IF DV=9 AND DR=0 THEN DR$="C:"
  11. 90 IF DV=9 AND DR=1 THEN DR$="D:"
  12. 100 IF DV=10AND DR=0 THEN DR$="E:"
  13. 110 IF DV=10 AND DR=1 THEN DR$="F:"
  14. 120 IF DV=11 AND DR=0 THEN DR$="G:"
  15. 130 IF DV=11 AND DR=1 THEN DR$="H:"
  16. 140 RETURN
  17. 150 END
  18. 260 REM: APPEND TO AN ARC FILE
  19. 270 PRINT"[147]      [193]PPEND TO AN EXISTING [193][210][195] FILE[146]"
  20. 280 PRINT"     [208]LEASE INSERT DISK WITH [193][210][195] FILE."
  21. 290 PRINT"  [208]RESS [158]$[146] FOR A DIRECTORY OF [196]RIVE 8,0."
  22. 291 PRINT" [208]RESS [158][213][146] FOR A NEW DRIVE CONFIGURATION."
  23. 292 PRINT" [208]RESS [158][211][208][193][195][197] [194][193][210][146] TO RETURN TO MAIN MENU."
  24. 300 PRINT"       [193]NY OTHER KEY WILL CONTINUE."
  25. 310 GET A$:IF A$="" THEN 310
  26. 311 IF A$<>" " THEN 320
  27. 312 GL=66:PRINT"[147] [208]LEASE INSERT DISK WITH [193][210][195] [193][201][196] ON IT"
  28. 313 PRINT"           AND PRESS ANY KEY.":POKE198,0
  29. 314 GET A$:IF A$="" THEN 314
  30. 315 PRINT"[147]";SPC(15);"[204]OADING..."
  31. 316 PRINT"[144]LOAD"CHR$(34)"MAIN"CHR$(34)",8";:GOTO670
  32. 320 IF A$<>"$" THEN  390
  33. 330 PRINT"[147]        [200]OLD DOWN [211][200][201][198][212] TO PAUSE."
  34. 340 PRINT"DIR":PRINT"":GL=5110
  35. 350 GOTO670
  36. 360 POKE198,0:PRINT"    [208]RESS ANY KEY TO RETURN TO MENU.[146]":GL=0
  37. 370 GET A$:IF A$="" THEN 370
  38. 380 GOTO 260
  39. 390 IF A$="[213]" OR A$="U" THEN GOSUB 760:RUN
  40. 391 PRINT"[147]     [193]PPEND TO AN EXISTING [193][210][195] FILE[146]"
  41. 400 PRINT"[147]  [206]OW THAT YOU KNOW THE NAMES OF THE"
  42. 410 PRINT"FILES TO BE [193][210][195]D, ANSWER THE FOLLOWING  QUESTIONS:"
  43. 420 INPUT "[193][210][195] FILE TO BE APPENDED TO";F$:IF F$="" THEN RUN
  44. 430 IFPEEK(2)>1THENPRINT"[208]UT [158][207]UTPUT[146] DISK IN [196]RIVE 8,0"
  45. 440 IF A=9 THEN 540
  46. 450 INPUT "[198]ILE, PATTERN OR [158][210][197][212][213][210][206][146]";FI$(A)
  47. 460 IF FI$(A)="" THEN 540
  48. 470 IFPEEK(2)>1THENINPUT"[207]N WHAT DRIVE CAN THIS FILE BE FOUND    (EX. 9,0)";DV,DR
  49. 480 GOSUB 50:FD$(A)=DR$
  50. 490 FOR I=1 TO LEN(FI$(A))
  51. 500 IF MID$(FI$(A),I,1)=" " THEN TE$(A)=TE$(A)+"?":GOTO 520
  52. 510 TE$(A)=TE$(A)+MID$(FI$(A),I,1)
  53. 520 NEXT
  54. 530 A=A+1:GOTO 440
  55. 540 IF FI$(0)="" THEN RUN
  56. 550 C$="ARC/A A:"+F$:EX$=""
  57. 560 FOR I=0 TO A-1
  58. 570 EX$=EX$+" "+FD$(I)+TE$(I)
  59. 580 NEXT
  60. 590 C$=C$+EX$
  61. 600 PRINT"[147]";C$:PRINT"":GL=5370
  62. 610 GOTO670
  63. 620 PRINT"[147]ARC/L A:"F$:PRINT"":GL=5390
  64. 630 GOTO670
  65. 640 POKE 198,0:PRINT"  [208]RESS ANY KEY TO RETURN TO MAIN MENU.[146]":GL=0
  66. 650 GET A$:IF A$="" THEN 650
  67. 660 RUN
  68. 670 POKE 631,13:POKE632,71:POKE 633,207:POKE635,13:POKE636,13:POKE198,5:GOTO 150
  69. 760 PRINT"[147]  [200]OW MANY DRIVES ARE YOU GOING TO USE?"
  70. 761 PRINT"        [158][207][146]NE OR [158][205][146]ULTIPLE [196]RIVES?"
  71. 770 GET A$:IF A$="" THEN 770
  72. 780 IF A$<>"[207]" AND A$<>"O" AND A$<>"[205]" AND A$<>"M" THEN 770
  73. 790 POKE 2,1
  74. 800 IF A$="M" OR A$="[205]" THEN POKE 2,2
  75. 810 RETURN
  76.